Chapter 5 The Grand Visualization

Full Page Rendering

clusters = clus$cluster[index_subset]

fig <- plot_ly(type = 'scatter', mode = 'markers')
fig <- fig %>%
  add_trace(
    x = data_subset[,1],
    y = data_subset[,2],
    text = ~paste('Heading:', head_subset ,"$<br>Text: ", raw_text_subset ,"$<br>Cluster Number: ", clusters),
    hoverinfo = 'text',
    color = clusters,
    showlegend = F
  )
fig
#saveWidget(fig, "All_clusters_noTopics_UMAPClus_wNoise.html")